10 POKE53281,11:POKE53280,11:POKE646,15
20 PRINT"[147]            INPUT-ROUTINE"
30 PRINT"          VON   TILL ZIEGER
40 [129]T[178]1[164]2000:[130]:[137]880
50 [137] 450
60 :
70 [143] INPUT-ROUTINE
80 [143] -------------
90 :
100 [151] 198,0:YS[178][194](211):YC[178]YS
110 [139] [195](Y$)[177][178]YL [167] [137] 130
120 Y$[178]Y$[170]" ":[137] 110
130 [151] 211,YS:[153] Y$;:[151] 211,YC
140 [151] 204,0
150 [161] YT$:[139] YT$[178]""[167] [137] 150
160 [151] 204,1
170 YT[178][198](YT$):YC[178][194](211)
180 [139] YT[178]13 [167] [151] 211,YS:[153] Y$:[142]
190 [139] YT[178]29 [167] [137] 350
200 [139] YT[178]157 [167] [137] 370
210 [139] YT[178]147 [167] [151] 211,YS:Y$[178]" ":YC[178]YS:[137] 110
220 [139] YT[178]148 [167] [137] 390
230 [139] YT[178]20 [167] [137] 420
240 [139] YT[178]19 [167] YC[178]YS:[137] 130
250 [145] YF [137] 290,310,330
260 Y$[178][200](Y$,YC[171]YS)[170]YT$[170][201](Y$,YS[170]YL[171]YC[171]1):[153] YT$;
270 [139] [194](211)[177]YS[171]1[170]YL [167] [153] [199](157);
280 [137] 140
290 [139] YT[179]48 [176] YT[177]57 [167] [137] 140
300 [137] 260
310 [139] YT[179]32 [176](YT[177]32 [175] YT[179]40)[176] YT[177]57 [167] [137] 140
320 [137] 260
330 [139] YT[179]32 [176](YT[177]95 [175] YT[179]193)[176] YT[177]218 [167] [137] 140
340 [137] 260
350 [139] [194](211)[177]YS[171]2[170]YL [167] [137] 140
360 YC[178]YC[170]1:[137] 130
370 [139] [194](211)[178]YS [167] [137] 140
380 YC[178]YC[171]1:[137] 130
390 [139] YF[178]1 [167] [137] 140
400 YC[178][194](211):Y$[178][200](Y$,YC[171]YS)[170]" "[170][202](Y$,YC[171]YS[170]1,YS[170]YL[171]YC[171]1)
410 [151] 211,YS:[153] Y$;:[151] 211,YC:[137] 140
420 YC[178][194](211):Y$[178][200](Y$,YC[171]YS)[170][201](Y$,YS[170]YL[171]YC[171]1)[170]" "
430 [151] 211,YS:[153] Y$;:[151] 211,YC:[137] 140
440 :
450 [143] HAUPTPROGRAMM
460 [143] -------------
470 :
480 [153] [199](147);[199](14)
490 [153]"         RIGHT$NPUT-PEEKEISPIEL"
500 [153]"         ==============":[153]
510 [153]"VALINGABEN"
520 [153]"--------":[153]
530 [153]"NUMERISCH: ";:YL[178]5:YF[178]1:Y$[178]NU$:[141] 60:NU$[178]Y$
540 [153]
550 [153]"KAUFMAENNISCH: ";:YL[178]10:YF[178]2:Y$[178]KA$:[141] 60:KA$[178]Y$
560 [153]
570 [153]"ALPHANUMERISCH: ";:YL[178]15:YF[178]3:Y$[178]AL$:[141] 60:AL$[178]Y$
580 [153]:[153]
590 [153]"ATNUSGABEN"
600 [153]"--------"
610 [153] NU$
620 [153] KA$
630 [153] AL$
640 [153]"NOCHMAL ZEIGEN ?"
650 [161]XX$:[139]XX$[178]""[167]650
660 [139]XX$[178]"J" [137] 450
670 [128]
680 :
690 [153]"LOADEXTERNE VARIABLEN
700 PRINT"-----------------
710 [153]"YL = MAXIMALLAENGE DER VARIABLE
720 PRINT"     (1 BIS 40)
730 [153]"YF = ART DER EINGABE:
740 PRINT" 1 - NUMERISCH (ZIFFERN 0 BIS 9)
750 [153]" 2 - KAUFMAENNISCH (ZIFFERN,
760 PRINT"     MATH. ZEICHEN, LEERZEICHEN)
770 [153]" 3 - ALPHANUMERISCH (WIE 2 + BUCH-
780 PRINT"     STABEN UND SONDERZEICHEN)
790 [153]"Y$ = EIN-/AUSGABE-VARIABLE
800 POKE198,0:WAIT198,1:POKE198,0
810 PRINT"[147]INTERNE VARIABLEN
820 [153]"-----------------
830 PRINT"YS = ANFANGSPOSITION CURSOR
840 [153]"YC = AKTUELLE CURSORPOSITION
850 PRINT"YT$= GEDRUECKTE TASTE
860 [153]"YT = ASCII DER GEDRUECKTEN TASTE
870 POKE198,0:WAIT198,1:POKE198,0:GOTO50
880 PRINT"[147]ERLAEUTERUNGEN
890 [153]"--------------
900 PRINT"DIE INPUT-ROUTINE ERMOEGLICHT EINE
910 [153]"FEHLERFREIE EINGABE OHNE GEFAHR
920 PRINT"DER MASKENZERSTOERUNG, INDEM EIN
930 [153]"EINGABEFENSTER MIT DER LAENGE  YL
940 PRINT"MIT FOLGENDEN EIGENSCHAFTEN
950 [153]"ERZEUGT WIRD:
960 PRINT"
970 [153]"- SOFORTIGE PRUEFUNG AUF ZULAES-
980 PRINT"  SIGKEIT DER GEDRUECKTEN TASTE
990 [153]"  IN ABHAENGIGKEIT VON  YF.
1000 PRINT"- FREIE CURSORBEWEGUNGEN INNERHALB
1010 [153]"  DES FENSTERS.
1020 PRINT"- HOME: CURSOR AN LINKEN RAND
1030 [153]"  SETZEN.
1040 PRINT"- CLR: LOESCHEN DES GESAMTEN
1050 [153]"  FENSTERS.
1060 PRINT"- DEL: LOESCHEN AB CURSORPOSITION.
1070 [153]"- INST: EINFUEGEN VON LEERZEICHEN
1080 PRINT"  AB CURSORPOSITION (NICHT BEI
1090 [153]"  NUMERISCHER EINGABE).
1100 POKE198,0:WAIT198,1:POKE198,0:GOTO690